dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "Strentch" 
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue : varValue = ws.RegRead(regPath)

Application.StatusBarText =""
select case varValue
	case 0'0-trace
		Application.ExecuteCommand("Move Mitre")
		Application.StatusBarText ="Strentch"
	case 1'1-shape
		'Application.ExecuteCommand("Quick Filter Shapes")
		'Application.ExecuteCommand("Add Mitres To Drafting")
		'DlgPrompt.Question("Get Miter Radius").Answer("5")		
		Application.ExecuteCommand("Move Drafting Mitre")
		Application.StatusBarText ="Add Mitter"
	case else'0-trace
		Application.ExecuteCommand("Move Mitre")
		Application.StatusBarText ="Add Route"
end select
set ws = nothing



